! name: ovil04d
! type: ArchiCAD Door File
! ***** 3D script *****


mat1 = c
asz = d
tsz = e

vx = (a-asz-2*tsz+2*0.03)/2
addx asz/2+vx/2
addz -0.02

kx = -vx/2+0.12
ky = 0.31

dy = (b-tsz-0.13-0.31-3*0.03) / 4
dx = vx-0.12*2

for iy = 1 to 4 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

    ky = ky+dy+0.03
        

next iy


prism_   5+nsp/3, 0.07, 

    -vx/2, 0, 15,
     vx/2, 0, 15,
     vx/2, b-tsz+0.03, 15,
    -vx/2, b-tsz+0.03, 15,
    -vx/2, 0, -1,

    use (nsp)

material mat1
addz 0.063/2

for ii = 1 to 4 step 1

    prism_ 5, 0.007,
        get (15)

next ii

del 1

material m_

addz 0.07
addx vx/2-0.03
addy 0.01
roty -90
rotz 90
 
prism_   5, vx-2*0.03, 
      -0.01, 0, 15,
      0.07, 0, 15,
      0.07, -0.005, 15,
      0.05, -0.025, 15,
      -0.01, -0.025, 15

del 5


addx -vx-asz


kx = -vx/2+0.112
ky = 0.31

dy = (b-tsz-0.13-0.31-3*0.03) / 4
dx = vx-0.12*2

for iy = 1 to 4 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

    ky = ky+dy+0.03
        

next iy


prism_   5+nsp/3, 0.07, 

    -vx/2, 0, 15,
     vx/2, 0, 15,
     vx/2, b-tsz+0.03, 15,
    -vx/2, b-tsz+0.03, 15,
    -vx/2, 0, -1,

    use (nsp)

material mat1
addz 0.063/2

for ii = 1 to 4 step 1

    prism_ 5, 0.007,
        get (15)

next ii

del 1

material m_

addz 0.07
addx vx/2-0.03
addy 0.01
roty -90
rotz 90
 
prism_   5, vx-2*0.03, 
      -0.01, 0, 15,
      0.07, 0, 15,
      0.07, -0.005, 15,
      0.05, -0.025, 15,
      -0.01, -0.025, 15

del 5


END

! ***** 2D script *****


END

! ***** Property script *****


END

